home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / BBEdit / MacBob 1.0ß2 / Examples / Characters.bob < prev    next >
Encoding:
Text File  |  1995-12-07  |  303 b   |  18 lines  |  [TEXT/R*ch]
  1. main ()
  2. {
  3.     a = "UPPER CASE & lower case";
  4.     print(a, "\n");
  5.  
  6.     len = sizeof(a);
  7.     for (i = 0; i < len; ++i)
  8.         print(a[i], "\n");
  9.  
  10.     for (i = 0; i < len; ++i)
  11.         if (a[i] >= 'a' && a[i] <= 'z')
  12.             a[i] = a[i] - 'a' + 'A';
  13.         else if (a[i] >= 'A' && a[i] <= 'Z')
  14.             a[i] = a[i] - 'A' + 'a';
  15.  
  16.     print(a, "\n");
  17. }
  18.